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; Abstract 
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ty: rms32 


ct 
this module includes various routines to 
obtain the did of a given directory sper. 


: Environment: 

: star processor running starlet exec. 

: Author: lL f Laverdure, creation date: 11-march-77 

: Modified By: 

; V03-018 SRBO142 Steve Beckhardt 8-Aug-1984 

: Added some comments in rearm directory cache routine. 

: v03-017 CDS0001 Christian D. Saether 9-May-1984 

: Use general addressing mode to specity blockast. 

: V03-016 $RB0122 Steve Beckhardt 29-Apr-1994 

: Fixed “a in rearm cache code where LKSB wasn't 

; removed from stack on certain error paths. 

: V03-015 0GB0023 Donald G. Blair 08-Mar-1984 

3 Remove global symbol MFD_FID. Make PREFIX_0 a local 

: routine. 

; VO3-014 SRBO111 = Steve Beckhardt 9-F eb-1984 

; Added RMS re caching support for cluster operation. 
: V03-013 RASO223 n Schaefer 16-Dec-1983 

3 Change S$SCBDEF A SCBSxxx to SFSCBDEF and FSCB$xxx. 

; v03-012 sHz0001 Stephen H. Zalewski 13-Sep-1983 

; No longer use RMS$GE DEVNAM to get device id es this routine 
3 is now obsolete. Pull the device id from the FWA. 

: Add routine RMSGETCCB to this module. It was in module 
3 RMOGETDVI, but that module was deleted because is is obsolete. 
; VO3-011 KBTOS8B Keith B. Thompson 18-Aug-1983 

; Try one more time to get grpmbr directories in rooted 

: directories to work! 

; v03-010 KBT0561 Keith B. Thompson 21-Jul-1983 

: Ignore open by tn block if search List pass 

; V03-009 KBT0544 ith B. Thompson 15-Jun-1983 

; Check for grpmbr ge tand R in the PSP; an at BLONAM 
: v03-008 KBT0526 Keith B. Thompson 24-May-1983 

: Fix a bobo, don’ arte the mfd if there are a rooted 

3 directories 
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§ é 3 v03-007 
0 ; v03-006 
0 9 3 
0 91; 
0 3 ; v03-005 
00 93 ; 
B38 94; 
000 95 ; 
$33 
97 ; v03-004 
0000 98 ; 
0000 99 ; 
0000 100 ; 
0000 101; 
0000 196 : v03-003 
0000 103; 
0000 104; 
0000 105 ; v03-002 
0000 106 ; 
0000 107; 
0000 108 ; 
0000 109 ; v03-001 
0000 110; 
0000 111; 
0000 4 3 
0000 113; v02-008 
0000 114; 
0000 115; 
0000 116; 
0000 117; v02-007 
0000 118; 
0000 119; 
0000 120 ;-- 
0000 121 


16-SEP-1984 00:36:07 VAX/VMS Macro v04-00 
ets Ti 9:38:95 LRMS SRCIRMOSETDID MAR: 1 
KBT0517 Keith B. Thompson 23-May-1983 
RMSCHKNAMBLK no Longer exist 
KBT0511 Keith 8. Thompson 13-May-1983 


Change search algorithm to use FWASG_CDIRn to get 
concealed directories 


KBT0455 Keith 8. Thompson 7-Jan-1983 

Directory cache is now two pages long. Also put in 
i to check that enough nodes can be allocated 
n it. 


JWHO151 Jeffrey W. Horn 7-Dec-1982 
Reference Directory Cache page via a SHELL pointer 
rather than an offset from the top of the RMS impure 


area. 
KBT0216 Keith B. Thompson 23-Aug-1982 
Reorganize psects 

RASO0087 Ron Schaefer 23-Apr-1982 


Correct directory cache rebuild for rooted directory 
SSEARCH sequences. 


RASO086 Ron Schaefer 8-Apr-1982 
Zero-out FIBSW_VERLIMIT after directory access to 
correctly propagate version Limits. 


RASO068 Ron Schaefer 16-Feb-1982 
Correct spurious error code caused be wildcard directories 
appearing in calls to SETDID. 


RASO040 Ron Schaefer 18-0c t-1981 
Implement rooted directories for concealed devices. 
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5 
ine to set Directory File 5-SEP-19 RMS.SRCIRMOSETDID.MAR; 1 (4) 
-SBTTL RMSSETDID, Routine to set Directory File ID 


+ 
+ 


RMSSETDID = Set directory ID 


The Ape by routine's function is t¢ initialize the 
pede field of the fib by setti ng it to the file id 
of the (lowest level) directory rye t accomplishes this 
by performing the following operations: 


1. assumes the fib go descriptor ts iF initialized. 
ap wt ities the file id or directory i é vetue iron the 
user's nam block if Soeettien and if n 
f found, returns to caller with fib 3d. oF "did filled in. 
3. otherwise, Sengtructs the directory filename 
based 90 foe rear spec format 


PAAR AAAAA AO 


Ss 
oOo 
oa 


0006 mor) prefixes from 0 to 2 zeroes 
0006 to eae “of the grp and mbr octal values 
0006 ye é-chare ad file name, e.g., 
0006 E208 gives 
0006 - 7 Be Bete, format uses the name as 9 ven 
4 4. peoreoee the directory cache for the specified device and directory 
entries. 
0006 5. if any entry not found, a new entry is made by looking up the directory. 
0066 in order to do the Lookup, the code appends the fixed type and version 
0006 of ‘.dir;1° to the filename and issues a gio to lookup the file id 
0006 in the master file directory or lower level director a 
0006 g. the returned file id is copied to the directory id field of the fib 
4444 - the file id field of the fib is zeroed. 
9 Calling sequence: 
0006 bsbw rm$setdid 
0006 
0006 Input Parameters: 
0006 rij impure area address 
0006 r10 fwa address 
0006 r9 ifab address 
Bope r8 fab address 
006 Implicit Inputs: 
nam$w_did 


esrectery te is ~? ne else zero 
ifb$l—chnl channel 
ifb$l— “brie dev 


fwa$q_cdirT... 


COOooo 


device RBA. BE 
concealed directory spec element descriptors 


So 

o 

SSSSSSFS o 

PAA o 
PIPIPIPINIMIPIPINIPIMINIPININIMININPIN INI a td tt kk kk kk kk hh hh dh tt 


fuesavdirl... directory spec element descriptors 
fwaSq_dir+4 address of scratch buffer 
fwaSt_fibbuf - must be zero 

the directory cache 


; Output Parameters: 


r0 status code 
r= -r7,ap destroyed 
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you-000 RMSSETDID, Routine to set Directory File ets 7 93:35:95 CAMS SRCIRMOSETDID MAR: 1 . (4) 
1 3 
¢ : Implicit Outputs: 
4; fwaSq_fib - descriptor initialized 
> 3 fwaSt_fibbuf+fib$Sw.did - directory file id initialized 
6 § 3 fwaSt_fibbuf+fibSw_fid - set from nam$w_fid 
6 ; $l_ios - “set to i/o status 
006 8 : fab$l_stv - set to system error code on error 
494 3: the directory cache is updated. 
0906 1 3; Completion Codes: 
$8 ; standard rms, in particular, suc, dnf and idr. 
006 5 ; Side Effects: 
0006 § 3 
Babe § mer have switched to ne at ast level. 
006 S 3 all user structures except fab must be re-probed. 
0006 39 ; 
0006 40 ;-- 
0006 41 
0006 $5 RMSSETDID:: 
0006 4 STSTPT SETDID 
000C 44 
000C 45 ; 
000C 46 ; check if we really need to go through this code 
Doot See 
69 93 E1 445 rH BBC #DEVSV_DIR, IFBSL_PRIM_DEV(R9).- ; branch if no directory 
57 28 A8 00 0010 51 MOVL FABSL_NAM(R8) ,R7 3 get nam block 
41 13 0014 26 BEQL CHKMT 3; Branch if none 
FFE7* 30 0016 5 BSBW RMSCHKNAM 3 verify nam 
29 50 =E9 Bot? 2 BLBC RO,RETURN : if not ok exit 
tate 56 ; 
001C 57 ; try to get file id from nam block 
Sie 338 
37 6A 0 EO Gott 60 BBS #FWASV_SL_PASS, (R10) , CHKMT : ignore if in search List oper 
33 68 3 E1 00 61 BBC #FABSV_NAR+F OP, (R8) , CHKMT : branch if not doing nam blk open 
24 A? DO 0024 6 MOVL NAMSW_FID(R7) ,- ; get file-id 
O1F8 CA 0027 26 F 1BSW_F D+F WAST_F BBUF (R10) ; 
08 3 4 & 64 BEQL 1 ; branch if none 
28 A 8 C 65 MOVW NAMSW_FID_RVN(R7) ,- : copy relative vol number too 
OFC CA 00 F 266 FIBSW-FID-RVN+FWAST_FIBBUF (RIO) ; 
11 2 67 BRB SUCCESS : all done 
034 68 
034 9 . 
09 r oy try to get directory id from nam block 
034 272° 
2A A? BO 4 10$: MOVW NAM$SW_DID(R7) ,- : pick up directory id from nam blk 
O1FE CA 7 74 FIBSW_DID_NUM+FWAST_FIBBUF(R10) ; ; 
18 «13 " o? BEQL CHKMT : branch if not specified 
6 C 7 ASSUME FIBS$W_DID_RVN EQ F IBSW_DID_SEQ+2 
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v04- RMSSETDID, Routine to set Directory File aioe 38 98: 38: % RMS.SRCIRMOSETDID.MAR; 1 ° 
C 7 
C AZ dO 3 8 MOVL NAM$SW_DID_SEQ(R7 3 move the rest of the did 
0200 CA F 0 FIBSW-DID-SEQ OeFuasT _FIBBUF (R10) ; 
tg 1 Suc FS es eut 3 set success 
05 4 § RETURN: RSB 3; and return 
$i 
B58 5 ; set mfd did for magtape and exit with success 
bce 589 
046 8 SET_MT_MFD: 
B268 RMSSUC 
4 0 
0049 91; : 
0049 38 ; subroutine to set the mfd directory id into the fib 
0049 93 ; 
0049 94 
sinh 32 ASSUME FIBS$W_DID_SEQ EQ F IBSW_DID_NUM+2 
00040004 8F DO 0049 297 SETMFD: MOVL #<F ID$C_MFDQ16>+F ID$C_MFD ; set file id of mfd 
O1FE CA 004F 98 FIBSW DID _NUM+F WAST °F TBBUE (R10) : : 
0202 CA BS 3338 44 cine FIBSW_DID_RVN+FWAST_FIBBUF(R10) ; from the rooted directory DID 
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v04- RMSSETDID, Routine to set Directory File ety 7 9 :33:% RMS .SRCIRMOSETDID.MAR; 1 ft (6) 
it W 
b3f 5 ; directory id wasn't in nam block. get it from directory cache. 
037 a ; alternate entry if nam block not to be used for input (from rms$rename) 
Bf 908 H-- 
057 11 RMSSETDID_ALT:: 
05 €0 0057 1 CHKMT: BBS #DEV$V_SQD,- 
69 TH 1 IFBSL_PRIM_DEV(R9) ,= 
EB 5A 14 SET_MT_MFD ; branch if magtape 
0058 15 
bose SIPs 
$086 18 ; locate the device id in the directory cache 
0058 19 ; 
bose 30h 
53 40 AA D0 0058 ¢ MOVL FWASQ_DIR+4(R10) ,R3 3; set addr of scratch buffer 
53 DD OO5F PUSHL R3 : Push address of buffer onto stack. 
83 0198 CA 90 0061 4 MOVB FWASQ_SHRFIL_LCK(R10),(R3)+ ; Make first byte count of string 
0198 CA 28 0066 325 MOVC3 FWASQ SHRFIL_LCK ),- ; Move device id string into buffer 
019¢ DA 006A $3 aFWASG_SHRFIC_LCK+4(R10) ,~ s(this is the unreadable form) 
&7 8EDO O006E 28 POPL RG :; Pop address of buffer into R4. 
0281 30 0071 $3 BSBW RMSGETCCB ; Get CCB address in R1 
61 b? 0074 0 MOVL CCBSL_UCB(R1) ,R6 ; Get UCB address. 
57 OQOAC C6 E 0077 31 MOVAW UCBS$W_DIRSEQ(R6) ,R7 ; Save UCB dirseq address here. 
55 00000000°9F ODE Bons 3 MOVAL a#P1OSGL_DIRCACHE ,RS ; addr of device list head 
01cC2 30 0083 34 BSBW FIND_ENTRY 3 go find this entry in cache 
10 13 0086 $2 BEQL 0$ ; branch if none found | 
67 3A AC B81 0088 336 CMPW DRCSW_DIRSEQ(AP),(R7) ; cache entry still valid? 
ge 13 008C 337 BEQL 20$ ; branch if yes 
55 C DO OO8E $35 MOVL AP,R5 3 get device node to correct reg 
38 AA 5C ° 49 39 MOVL AP,FWASL_DEVNODADR(R10) ; save the device node address 
015E 1 0095 40 BRW PRUNE 3; and go prune back branch 
0098 32 
a “3 > ono entry for this device in the directory cache. = make one. 
9 45 ° 
O1E6 30 003 46 10$: SBW GET rece : 90 pick a free node 
65 6C E 0098 47 INSQUE (APY, (R5) : insert node at list head 
64 iH 48 novege (R4) ,RO ; get Length of device string 
10 ac 64 50 2 Al = 349 MOVC3 RO, (R4),DRCST_NAME(AP) ; move the device string 
OA6 350 ASSUME ucesv AST ARMED £Q 15 
SAAC 67 80 OA6 51 15$: MOVW (R7) .BRC$Q_DIRSEQ(AP) ; save the dir seq. count 
96 9 OQOAA 26 BLSS 20$ : pranch if cache blocking AST is armed 
025 30 OOAC 5 BSBW RMSARM_DIRCACHE 3; Arm it ; 
F450 «EB 8 AF 54 BLBS 0,15 3; Repeat saving DIRSEQ if successful 
38 AA 5C 00 00862 55 20$ MOVL AP,FWASL_DEVNODADR(R10) ; save the device node address 


SS 


3 


ry name is in Corp,mbr) format. 
he directory name from the two values, refixing 
ading zeroes if neccessary to get a 6-character name 


erro 
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v04- RMSSETDID, Routine to set Directory File ets 7 90:38:95 RMS.SRCIRMOSETDID.MAR; 1 . (8) vO. 
B 7 
: 8 po+ 
8 60 ; follow the directory cache entries for this directory spec. 
: o ; if any missing, do a lookup to supply the entry and restart scan from the top. 
gE I 
ope 65 CLR_LOOKUP: 
34 AA D4 $88 66 CLRL FWASL_LOOKUP(R10) 3 say no Lookup done 
68 ; 
$89 e ; If a root directory is defined, then locate the root directory string 
boee 0 ; before starting the (sub)directory lookups. This is necessary since the 
0B9 71 ; the UFD in this case is actually an SFD of the root directory. 
bons 38° 
$089 74 FIRST_DIR: 
5C 38 AA 00 0089 75 MOVL FWASL_DEVNODADR(R10) , AP 3; reset device node address 
6 0130 “ 7E O00BD 6 MOVAQ FWASQ-DIR1(R10) ,R6 3; get addr of ist dir. discriptor 
05 6A A 4 00C2 7 BBC #FWAST_ROOT_DIR, (R10) ,BLDNAM 3 No root present 
56 OOFO CA 7E 00C6 378 MOVAQ FWA$Q_CDIRITR10) ,R6 : if a concealed directory 
00cB 79 3; start from there 
sg a 
; Construct directory name 
00CB C di 
itt 
53 40 AA 01 C3 00CB 85 BLDNAM: SUBL3 #1,FWASQ_DIR+4(R10),R3 3: get name scratch buffer 
1D 66 16 £0 0000 386 BBS #FSCBSV_GRPMBR, (R6) , 10S : Branch if Corp,mbr] format 
OA 6A 3A €E1 00D4~= 387 BBC #FWASV_ROOT_DIR, (R10) ,5$ : skip MFD test if not rooted 
06 66 19 €1 00D8 88 BBC #FSCBSU_MFD; (R65 ,5$ 3; branch if not MFD string 
56 08 CO O0DC 89 ADDL2 #8,R 3; skip this directory 
0081 31 OODF 90 BRW NEXT_DIR 
ae 
OOE 38 3; Directory name is in Cnamel.name2...] format construct the current 
ObE 94 ; level directory name 
as 
53 DD OOE 39 5$: PUSHL R3 : save buff start addr 
50 86 00 E4 MOVL (R6)+,RO 3; get name length 
83 650 4 81 €7 ADDB #1,R0,(R3)+ 3; Store Length count in string 
65 96 0 ¢6 ? move RO ,@(R6) +, (R3) : Soup te tenporecy bul tor 
08 ee ; go look up the e 
OF1 4 
OF1 4 
OF1 4 
. .-¢ 
a. § 
1 4 
| ERS 
aa § 
8 4 
4 
c..6 


9 
1 
1 
1 
1 


WO OONOUS WIN —O 00 


Ses Bs Ds Be Be Be es Bs es Be Be Bo | 


53 D 10$: PUSHL RS : save buff start addr 
83 607 MOVB #7, (R3)+ : count of etring to match 
ies BSBW PREF IX_0 + move group par 
1€1 3 BSBW PREFIX_ 3 move member part 
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voe=000 RMSSETDID, Routine to set Directory File aes 18:35:90 RMS.SRCIRMOSETDID.MAR; 1 . (B) 
FC 414; 
FC 415 ; look up file in cache 
Fe ade 
54 BEDO OOFC $18 208: POPL RG 3 restore counted string addr 
55 08 as 3 OFF 41 MOVAB ORCSL_LVLFLNK(AP) ,R5 ; addr of List hdr for nxt level 
014 193 420 BSBW FIND ENTRY ; go find this directory entry 
16 «1 1 $ 421 BNEQ NXT_BIR 3 next_dir if found 
10 4 ¢ 
108 434 5 
B18 425 ; No entry for this (sub)directory in the cache. We must lookup the file and 
1 4 § ; make and entry. Because a more priviliged mode could invalidate the cache 
010 427 ; while we stall, (verrrry nt they s but possible), we must find our way back 
B18 : 3 : down to this level before actually adding the new entry. 
010 430 ;-- 
0108 $3) 
5C 34 AA 00 0108 4 ¢ NOT_FND:MOVL FWASL_LOOKUP(R10) ,AP : get addr node for Last Lookup 
15 13 010C 43 BEQL LOOKUP ; Branch if none 
gi te 
Q10E 436; this is the 2nd time thru. lookup has already been done. add the looked-up 
O10E 437; entry to the cache as long as it's still the one we want. 
QO10E 438; 
QO10E 439 
34 AA D4 QI0E 440 CLRL FWASL_LOOKUP(R10) ; indicate no lookup node 
64 9B 0111 441 ads g (R4) 3 ot length of string 
10 aC 64 50 29 0114 44g CMPC3 RO, (R4) ,DRCST_NAME (AP) : is this the right entry? 
05 12 0119 44 BNEQ  FREE_UP : branch if not 
65 6C OEF O11B 444 INSQUE (AP),(R5) ; insert new node after header 
73.11 O1iE 445 NXT_DIR:BRB NEXT_DIR ; and continue 
O1AC 3=—s- 30 0133 ret FREE_UP:BSBW ADD_TO_FREE ; return the node 
O13 449 ; 
4 $39 3; must look up the file. use the current cache node to set the did. 
01 452 © 
08 C2 at 138 LOOKUP: SUBL2 #DRCSL_LVLFLNK,RS5 ; back to start of current node 
38 AA =«655~—Co*DT 126 454 CMPL RS ,FWASL_DEVNODADR(R10) ; is this the device node? 
05 12 O12A 455 BNEQ =-:108 : branch if not 
FFIA 30 QO12C 456 BSBW Nil ; go set mfd did 
O¢ 11 4 F 457 BRB $ 3; continue 
38 A DO 0131 $28 10$: MOVL DRCS$W_DID(RS),- 
O1FE CA 0134 45 F IBSW~DID+F WA$T_F IBBUF (R10) ; set the did from cur. node 
3¢ AS =«BO 4 7 460 MOVW DRC$W_DID+4(R5),- p 
0202 CA A 461 FIBSW-DID+4+FWAST_FIBBUF(R10) ; (ditto) 
13D 268 H ’ ; 
13D 96.464 ; append *.dir;1° to the directory name, determine : 
: 4 o6g 3 the total string length, and perform qio to get the file-id 
13D : 
23 64 9A 013D £08 208: MOVZBL (R4),R3 : set size of dir name string 
O1 AG § cA OSA 149 4 LO #*A'e" R3,1(R4) ; ‘e* in file name? 
46 12 014 470 BNEQ ERRDIR : do not allow wildcards here 
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01 a4 53) 25 3A 01467 471 LOCC «= #*A'"'&", RB, 1 (RG) : 'S' in file name? $$. 
s | 14C 78 BNEQ RDIR ; do not allow wildcards here SSA 
6443 FEAD CF 6 2 1g 47 MOVC3 #6,DIR_ SUFFIX (Rd) ERS] 3 append fixed suffix SSR 
3C AA 653) GO AA CC 133 fe SUBL FWASG_DIR+G (RIO) JR 7 3 compute name Length ser 
0204 CA dé 136 476 CLRL = FWAST_F IBBUF +F IBSL_WCC(R10) ; wee must be zero SSR 
7E C 15F 47 CLRQ (SP) ; p5. p6 zero $$T 
7E 7C 0161 478 CLRQ -(SP) : pS. p4 zero ADD 
3C AA 7F O16 479 PUSHAQ FWA$Q_DIR(R10) ; pe = directory name descriptor ARM 
50 32 9A 166 480 MOVZBL S*#I10$_ACCESS,RO 3 gio function code ; BLD 
FE94' 30 016 481 BSBW RMSF CPFNC 3 issue the fcp function CCB 
68 50 €9 016C 18 BLBC RO, ERRONF 3 get out on error CHK 
16F 4 CHK 
016F the 3 CLR 
O16F 485 ; directory look up succeeded. DEV 
O16r 486 ; move the directory file id to the new directory cache node DEV 
16F 487; DEV 
30 bier 189 BSBW GET_FREE ick f d DRC 
3 go pick a free node 
34 AA SC 00 0172 490 MOVL AP, FWASL_LOOKUP(R10) : addr of lookup node DRC 
O1F8 CA. 06 28 gire 43] MOVC3 66,0 1084 IDSFUAST _F I1BBUF (R10) .7 save the directory fid Bae 
53 40 AA 01 C3 0170 49 SUBL3 #1, FWASQ_DIR+4(R10) ,R3 ; get save string addr DRC 
50 98 0182 49% MOVZBW (RS) ,RO : get string Len DRC 
10 ac 4663 ~—~=—50 ¢ 0185 495 MOVC3 RO,(R3),ORCST_NAME (AP) 3 Save string in dir node DRC 
1 piRA $38 BRW FIRST_DIR : branch to op te come down : Ene 
; tree again an n is node 
018) 498 : ERR 
018D 499 ; Ex! 
018D 500; return error if wildcards got this far FAB 
b185 263 ERRDIR RMSERR DIR in di FAB 
: z return error in directory 
05 0192 208 RSB FAB 
FIB 
FIB 
FIB 
FIB 
FIB 
FIB 
FIG 
FI8 
FID 
FIN 
FIR 
FOP 
FRE 
FSC 
FSC 
FTL 
Fu 
FWA 
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RMOSETDID 
V04=600 


ROM 
» Ro 


“+ 
oVo 
eae 

co 
a 


- 
+ 


Found this directory entry o.k. = see if more to find 
The directory descriptors are organized as follows: 
FWASQ_CDIR1 - Concealed directory descriptors 


- Followed by the normal directory descriptors 


FWASQ_DIR8 


If a zero entry is found we must check to see which group we are in. If 
it is the concealed List we start with the normal eh diet descriptors. 
If there are 8 concealed directories this loop will fall right through 
and search the normal ones. 


; Pick up the next sub-directory name if any more to go 


NEXT_DIR: 
TSTW 


NNN NNN SMA NANA WANA AAA ANANNWIAIANIGIMIAI I 


PR RR tt Dp tp ty py ip ie bye i ip te Ae i A pe pe pe pp 


SOSOHSDSOSCOSOOOOCOSSOOOCSOOSOSOSSOSOOSOSOSOOCOODOOOCOOOODOOOOOOOOOOOO0O0 

em ee me ee a ed et od = wd od 2) Sd 3 dd dd SS 3 

(DV PVP DVI IUPUI LULU LVL LULU IUPUI UIVLUSIUSULIVSUSIUS SUSY FUSES USVI TSS IOS ISIS 

AOA MAAAAN AI BB EE BB BB BWW WW WIWIWIRRONONIPUNIPINIIIN 2 OOOO 

OOD NA NEW OOO NAN EWN OODNAU EWN OOO NAUEWWN OOO NAULWN ODD 
ere 


66 «BS (R6) 3; zero directory length? 
15 i2 BNEQ 20$ ; branch if net . 
: If the descriptor is zero see if we have passed the concealed directory 
; descriptors. If so we are done, else start on the normal directories 
0128 CA 7F PUSHAQ FWASQ_CDIR8(R10) 3 get lowest level concealed 
; directory descriptor addr 
8E 56 01 MPL R6,(SP)+ 3 past it a ready’ 
15 1A 9E BGTRU ; branch if yes (all done) 
56 O130 CA 7 . MOVAQ FWAS$Q_DIR1(R10),R6 ; start one normal dir List 
66 8B A TSTW (R6) 3; zero directory length? 
— A? BEQL EXIT : exit if so (no normal dirs) 
FFIF 31 y 3 10$: BRW BLDONAM 
0168 CA 7F AC 208: PUSHAQ FWASQ_DIR8(R10) ; get lowest level sub 
B0 : directory descriptor addr 
> ow B CMPL R6,(SP)+ 3 past it already? 
FS «1B : BLEGU 108 ; branch not 
. p++ 
8 : Have found all needed nodes. Check if directory sequence count still valid. 


| 
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1B a 
1B 6 
56 5C dO O18 64 EXIT: MOVL AP,R6 3 save addr of dir node 
5C 34 AA 09 1B8 65 MOVL FWASL_LOOKUP(R10) ,AP 3; unused igokue node? 
83 1 1BC 66 BEQL $ : branch if not 
O10E 3 1B 6 BSBW ADD_TO_FREE 3 return it to the free List 
a 1C¢ 68 10 10$ BSBB TD 3 cache still valid? 
31 1 1¢ § BNEQ PRU : branch if not 
01C 0 
gies 8g i 
Bice i 3 ALL set. Just set the did in the fib and clear the fid and version Limit. 
01C5 75 ;- 
pice 8 
38 A6 «6060S 288-—s«é01C5 7 MOVC3 #6,DRC$W_DID(R6),- : set the directory id 
O1FE CA 01¢9 «578 F 1BS$W_DIO+FWAST_F IBBUF (R10) 
O1F8 CA D4 pice 579 CLRL FIBSW_FID+FWAST_F IBBUF (R10) ; zero the file id 
0220 CA B64 0100 580 CLRW F IBSW_VERLIMIT+FWAST_FIBBUF(R10); zero the version Limit 
50 D6 0104 # 581 INCL RO 3; show success (r0 = 0 from movc3) 
05 8108 286 RSB :; back to caller of rm$setdid 


roses” 


6s 
rf 
0910 8F Ga 
OC A8 0 


FEOA’ 


bt 


kd dd ed dd CUO 
NW MMMMMMOOCVVVVVTVVVTVTCSO 
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Handle directory not found error. 


BSBB CHKDIRSEQ 
BEQL § 
BRB PRUNE 

S$: cHPU RO, #SS$_NOSUCHF ILE 
MOVL RO, FABSL_STV(R8) 
RMSERR ONE 

10$ RMSERR DNF,R1 
BRW RMSMAPERR 


“ 
i 
B 
0; 
ge E ERRDNF : 
y 
36 
38 
a0 
y 


error “* a invalid cache? 


possibly ="er 

oss - go try a 

a error ie not re 
branch i 


save Be a. rr 

replace with directory not found 

and return 

default error to directory not found 
map error to rms & return 


RMOSETDID SET DID FROM D 
v04- RMSSETDID, Rou 
166 $05 
ig 807 
18 808 
1F6 610 
1F6 611 
1F6 o1¢ 
1F6 61 
Bice 614 
55 co its 615 
2 v1) git 918 
5 6 D1 1FC 61 
¢6 13 $4 618 
5 DD 01 619 
5C 65 DO 0203 620 
55 08 AC DE 8 06 621 
55 65 01 OA 6 ¢ 
2 32 Seon 888 
O20F 625 
OS or 626 
O20F 627 
020F 628 
6C DD O20F 629 
5¢ 6C OF 0211 630 
0088 30 0214 #«2631 
SC 8E DO 0217 O36 
6E SC D1 O21A 63 
E7 12 021D 634 
5¢ 08 C2 pst 635 
54 8E D1 0222 636 
eb 2 38 ar 
best 639 
0227 640 
oss? 641 
0227 276 
055) 64 
32 AG 67 BO 0227 644 
06 19 0228 645 
OOCF 30 bs¢0 646 
F4 50 58 0230 647 
FE80 1 0233 648 
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++ 


by the ac 


PRUNE : 


10$: vee. 
15$: a 


20S: 


ASSUME 
sgh 


ww 
Oo 
bad 


40$: BRW 


at lowest level - 


G 


have run into an invalid cache condition, i.e. 
(e.g., mount) to invalidate the 
remove all entries below the device, reset dirseq, and try again. 


L_LVLFLNK,RS 


VLFLNK (AP) ,R5 


~~ Aw~ 
.* fe 
=m 
vio 


remove this node 


VLFLNK, AP 


38:9 


AX/VMS Macro Vv04-00 


something was done 
cache contents. 


get address of ufd header 
set stop address 

payessre to prune? 

branch if not 

save header addr 

get next Level down 

get addr of level Link 
another Level? 

branch if yes 


and move to side node 


save next node addr 
remove node ’ 
add it to the free list 
et next node addr 

ack to previous level? 
branch if not 

et node start address 
ack to dev node? 
branch if not 


store new dirseq value and rebuild tree for this device 


r pranct if cache blocking AST is armed 
; Repeat saving DIRSEQ if successful 


UCBSV_AST_ARMED E€Q 15 

{R7) BRCSO_DIRSEQ-DRCSL_LVLFLNK(R4) 
RMSARM_DIRCACHE > Arm 
RO,308 

CLR_LOOKUP 
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50 8ED0 
05 


5 
5 
5 
5 
6 
6 
6 
6 
6 
é 
67 
6 
6 
7? 
? 
7? 
7 
7? 
7 
7 
7 
7 
7 


; 
; 
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handle bad directory rename error. 


ERRIDR: POPL 
RMS 
RSB 


+ 
+ 


chkdirseq subroutine to verify cache validity 


: inputs: 
| rj0 fwa address 
3 ucb$w_dirseq address 
: fwasl _devnodadr 
: outputs: 
3 r5 fwa$l_devnodadr 
: z-bit set if cache valid, else clear 
CHKDIRSEQ: 
MOVL FWASL_DEVNODADR(R10) ,R5 : get device node address 


CMPW = DRCSWIDIRSEQ(RS),(R7) : still valid? 


RSB 
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} 
| 
RO ; discard local ret addr 
ERR IDR ; set bad directory rename 
3; and return 


ee —— + 


RM 
v0! 


zauw 
am 
oH 
“” 

mo 
ios 
= 


—OoTVJ 


NWWWWIANNNWIO OD OO STOO WOw— MW cococococapcocecocNcecocNCECNCECECECECRPCD OM 


PAEAEARXQEQEPEARAXREMAMNAAA IE PLP LPP EPP PPP PPLE EE 


SS en it in Site Din tn Si i Di i i i i i tt te | 


RIP IP IPIPIPIPNINIPINYPINININYINININININPYAMYIPIPYPINPIPIPIPIPIPINIPINPIPUPINIPIPIPIPIPIPUPIPIPIPIPIPINPONE OT 
WILARORONONONONONONONIND SO 


SOOOCOOOOSOOOSOOOOSOOOOSOSOOOSOOSOOSOOOOOOOOSOOOCOCSOOOOOOOOOOOCOOO 


ONAN NNO 


SOMO SPVANoIT 


WOO OMMDcCICDCNCDCNCD CO 


APAGAAAAOOAAAAD 
WI OOONOUL Wt 


694 


708 


OOD NOUES WN —" OOONOULS WN OO 
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note: if match found, matching entry is requeued to immediately follow List head. 


ine to set Directory File 5- RMS.SRCIRMOSETDID.MAR; 1 (18) vO 
p++ 

: find entry subroutine to find an entry in the directory cache | 

: inputs: | 

: r4 address of counted string to match 

; r5 address of List head for level to scan 

: outputs: 

; z-bit set if no match found, else clear | 

3 address of matching entry 

: r0-r3 destroyed 


FIND_ENTRY: 
MOVL R5,AP ; set up to find Ist node 
108: MOVL tual ceed 3; get next node 
CMPL AP,R ; Back at head? 
BEQL : branch if yes (no match) 
whi y (R4) ,RO : 
CmMPC RO,(R4),DRCST_NAME(AP) ; do they match? 
BNEQ 108 > branch if not 
3 matching entry found - requeue entry to head of the list 
REMQUE (AP),AP 
INSQUE (AP),(R5) 


check if the saved fid is the same as this directory id. 
true iff both fid and did are valid file identification fields. 


BISW3 FWAST_RNM_FID(R10),- ; is this a valid fid? 
ay WAST RNA_F1D+4 (R10) ,RO ; not if Ist and 3rd words are 0 
BISW3 DRC$W_DID(AP),- 
DRCSW_DID+4 (AP) ,- 
0 ; likewise for did 
BEQL 15$ 2 
CMPC3) #6,FWAST_RNM_FID(R10).- ; is directory same as file? 
DRCSW_DIDCAPY 
BEQL ERRIOR ; bad operation if so 
15$: TSTL AP ; clear z-bit 
20$: RSB 


: oe len of string to match 
J 


4 


get addr of directory cache page 


J 
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1 3 
1 : 4 34+ 
1 f > 3 
1 § ; get free subroutine to find a free node. 
1 737 ; picks node from free List, if any, else picks least recently used dir entry 
: 4 8 ; on least recently used device. 
1 £9 ; inputs: 
1 41 ; none 
1 og 5 
1 745 ; outputs: 
1 7663 — addr of node 
1 7435 3 r destroyed 
1 oe) i-- 
0281 74 
1 748 GET_FREE: 
50 00000000'9F oD 1 749 MOVAL @#PIOSGL_DIRCFRLH,RO ; get free list addr 
5¢ 60 OD 88 750 MOVL (RO), AP 3 pick first node 
1 8B 751 BEQL 10$ 3; branch if none 
60 6C 00 8D O36 MOVL (AP), (RO) ; bring up next free node 
05 90 75 RSB 
91 754 
" 3 
8 4 £38 nothing on free List. check that it has been initialized. 
0291 758 ° 
5¢ 04°AO DO O 4 £23 10$: MOVL B*PIOSGL_DIRCACHE+4-PIOS$SGL_DIRCFRLH(RO) ,AP 
6 95 6 761 
0295 762 ; get lru device node 
95 763; 
95 764 
6C 5C D1 95 765 CMPL AP, (AP) 3; empty list? 
28 12 0298 76 BNEQ 30$ 3; branch if not 
029A 76 
029A 768 ; : 7 
8 4 f H : initialize free directory nodes List 
8 9A «771 : : 
— = b0 9A MOVL RO,AP ; set up to init free node list head 
50  0000°C 9 MOVAL PIOSA_DIRCACHE-PIOSGL_DIRCFRLH(RO) ,RO 
A 
A 
A 
A 
A 


NOTE: There must be enough room in the directory cache to have a node 

for each possible subdirectoy plus the root and the device node. 
ASSUME <<2*512>/DRC$C_BLN> GE FWASC_MAXSUBDIR+1+1 
PUSHL #<<2*512>/DRC$C_BLN> ; set # of nodes in cache (2 pages) 
MOVL RO, (AP) 3; set flink of previous node 
MOVL RO,AP ; save addr this flink for next node 


ASSUME DRCSL_LVLFLNK €0Q 8 


15$: 


DOO NAW EW O OOO NOAUE WN 


Wor 

oo 

vn 

ooo oo 

coco o 

oov m 
OOOoOCOOoOooOoooO 
ROPIPOPIPIPUPOPONIPYNIPYPPP Poy 

= } >>r>r>r>rr>Yr 

NERPNIPIPINININININING 
QV 
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> 
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7 AA 39 CLROQ (RO)+ 3 goye to level List heed 
6 D AC MOVL RO, (RO) ; init List to empty (flink) 
04 A dD A 35 MOVL RO,4(RO) 3 (blink) 
5 C B g DDL2 #Dhcse FLM-ORCSL LYLFLIK AO; move to next node 
EB g ig a 94 SOBGTR (SP),15 ; loop if more 
BED 8 795 OPL i clean stack 
C 1 BC £36 BRB GET_FREE 3 and try again 
ef 
43 739 ; pick relatively Little used node 
BE 0 . 
5C OC AC 00 8 § § $: MOV DRCSL_LVLBLNK (AP) , AP ; get lru (sub)directory 
50 08 AC of C : $: MOVAL ORCS$L BATLAK AP? : get next level List head 
50 6 Dd C 4 CMPL (RO) ,R ; List empty? 
F 12 C 05 BNEQ 20$ : branch if not 
5c 6C OF cB 88 REMQUE (AP),AP 3 pick the node 
05 CE 0 S$ 
CF 08 
+ Mme 
3 add_to_free subroutine to return a node to the free List. 
0 4 \ dd_to_f b i t de to the f list 
O2cF B18 3 inputs: 
8 13 3 ap node address 
O2CF HE 3; outputs: 
O2CcF 7; r0 destroyed 
Oocr B19 
O2CF 0 ADD_TO_FREE: 
50 OQ0000000'°9F DE O2CF 1 MOVAL @#PIO$GL_DIRCFRLH,RO 3; get free List head addr 
6C 60 D0 0206 ¢ MOVL (RO), (APT : Tlink to new node 
60 SC t i444 MOVL AF, (RO) 3 new node addr to List head 
05 O02DC 4 RSB 
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§ -SBTTL PREFIX.0, Convert Group-Member Format to Normal Directory 


RMOSETDID SET DI 
vou=600 PREF IX 


p++ 
; subroutine prefix_0 to move either the group or 
3; member part of a directory speg prefixing it 

3; with one or two zeros to give 3 characters total 


8 
DD 8 
DD 
DOD 0 
DD 1 
3: 
4 ¢ ; inputs: 
DD § : rg addr of descriptor for group of member part 
44 ; r addr of output buffer 
DD 33 3 outputs: 
0 44 rf : r r 3 
: r r 
0 DD 648 ; rO,ri,r2,r4,r5 destroyed 
8 DD 44; 
+B fog 
0 DD B29 PREF IX_0: 
50 86 00 DD 848 MOVL (R6)+,R0 ; get Length 
03 50 Bi 0 e 849 CMPW RO,#3 ; all 3 chars present? 
0B 13 O2E 850 BEQL 20$ 3; branch if yes 
02 50 #61 O2ES~ 851 CMPW RO,#2 3: 2 of the 3? 
03 13 0268 83¢ BEQL «=s« 108 : branch if yes 
83 30 90 O2EA 85 MOVB #*A/0/,(R3)+ 3 move a zero 
83 30 90 O2ED 854 10$: MOVB #*A/0/,(R3)+ 3 move a zero 
63 96 50 28 O2FO 855 20$:  MOVC3 RO,a(R6)+,(R3) > move the grp or mbr number 
0° OSs B89 “0g 


msi” 


50 44 Ag 
00000000 * 9F 


i 


Die Ds Bi De De Ds De Bs ee Ds es De Ds ee Be ee Be De ee Be | 


ete Se ee a) 


.- Zz 
o8 
mm 
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68 - -SBTTL RMSGETCCB, GET CCB ADDRESS 
gi : RMSGETCCB -- subroutine to return the CCB address. 
4 INPUTS: 
66 ; R9 IFAB address with channel in IFBSW_CHNL 
‘ : OUTPUTS: 
: address of CCB 
; 3 RO, R2,R3 destroyed 
73 j-- 
74 
75 RMSGETCCB:: 
6 MOVZWL IFBSW_CHNL(RI),RO 3; set channel # 
44 JMP a# LOCSVERIF YCHAN ¢ get the ccb address (in r1) 
79 ; 
80 ; and return 
81; 


_ (33) 


RM( 
v0 


— eee 
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H Bit 
FF 53 rm$arm_dircache routine. Converts the volume lock to rearm 
44 § 3; the blocking AST which in turn invalidates the cache. 
FF : : inputs: 
44 4 3 r7 address of UCB$W_DIRSEQ cell in UCB 
FE 31 : outputs: 
FF 38 : r0 low bit clear = failure (blocking ast could 
43 9¢ ; not be rearmed). Just sawe current seq. #. 
FF 38 : low bit set = success. Repeat saving of the 
FF 97 ; seq. #. 
8 FF 98 ; 
ha 
0 44 a8) RMSARM_DIRCACHE: : 
O2FF 308 : Duplicate some checks we will make in kernel mode eats so that 
8 re B88 3; if there is no lock (ODS-i, for example) we save the SCMKRNL. 
50 Be O2FF 206 2 CLRL RO 3; assume failure 
51 FFS4 C7 —E 0301 90 MOVAW  -UCBS$W_DIRSEQ(R7),R1 ; get address of UCB 
13.—s«€E;# t+ 908 BBC #DEVSV 7 : Return failure if device 
21 3 Al 030 909 UCBSL_BEVCHAR(R1),50$ ; is not mounted 
50 4 “ 00 bane 319 et pest VCS CAT) RO ; Or if VCB isn't attached 
7C AO be 8 11 a TSTL VCBSL_VOLLKID(RO) ; Or if there is no volume lock 
”™ 1 14 91 BEQL 50$ : (ODS-1, for example) 
51 DD 0316 914 PUSHL Ri : push address of UCB 
97 dD baie 915 PUSHL #1 3 push argument count 
51 —E 00 Rie Zig MOL SP,R1 i: fl points to argument List 
1D 91 SCMKRNL_S B*ARM_CACHE,(R1) ; call kernel mode routine 
5E 08 CO 9 4 ADDL #8,SP ; clean argument List off stack 
05 4 ahs 50$: RSB 
D 921 ARM_CACHE: 
55 04 AC 00 F 9 MOVL 4(AP),R ; Get UCB address 
3 924 10$:  SETIPL IPL_DES” : raise IPL and lock pages 
13.—«C«éE=# A 925 208: BBC #DEUSV_HANT,- ; Return failure if device 
68 44 A? £5 § UCBSL_BEVCHAR(RS),50$ ; is not mounted 
53 4 ae 00 i 4 we BSL_VCB(R5S).R 3 dr if VCB isn’t attached 
54 7C AS 00 45 9 ; MOVL pest VOLLKIBIRS) .A4 ; Or if there is no volume (ock 
= 9 49 9530 8 $ 3; (ODS-1, for example) 
52 ooOAC CS § 3C 0348 «931 MOVZWL UCBSW_DIRSEQ(RS) ,R2 > Save old seq. # 
0 | ¢ SETIPL @# 3 lower IPL 
934 ; 
5 3 5 ; Set up for SENQ service to convert lock to rearm blocking AST. We must 
5 § ; handle possible SS$_IVLOCKID errors due to lock manager's nendl ing 
5 937 ; of conversions mastered on other systems. If two users are in this 
: y 3 3 path simultaneously then the first will do the conversion and the 
939 ; second may get SS$_IVLOCKID if the conversion is in progress and 


a 
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40 ; mastered on another system. —_ solution is to retry. We can also 
41 ; get SS$_ IVLOCE ID if the volume is dismounted and the Lock is dequeued 
ts ; while we are in here. 
+ 
54 OD 945 PUSHL R4 ; Push lockid to create lock status 
00 OD 2 308 PUSHL #0 ; block on the stack 
54 SE 00 4 MOVL SP,R4 ; R84 points to LKSB 
2A 949 SENQ_S EFN = #IMPSC_ASYQIOEFN,- 
SA = 950 LKMODE = AL CKSK _CRMODE ,- 
2h 32) LKSB = (R4) 
A é FLAGS = #<LEKSM_CONVERT!LCKSM_CVTSYS!LCKSM_SYNCSTS>, - 
2A tt ais z Peres Sati BLKAST> = 
5E 08 CO 8 * 955 ADDL #8,SP ; Clean LKSB off stack 
2124 8F 50 861 80 956 CMPW RO ,#SS$_IVLOCKID ; Can occur due to race with volume 
AC 13 8 85 957 BEQL 10$ : dismount or due to two users 
87 958 ; in this path simultaneously. 
0689 8F 50 61 0387 959 CMPW RO,#SS$_SYNCH : Should be performed synchronously 
20 12 038C 960 BNEQ 90$ : Error! 
O38E 961 
O38E 962 ; 
O38E 963 ; Check that ed # hasn't changed before setting armed flag. 
QO38E 964 ; This must be done at TPLS‘s SYNCH to avoid the race condition 
O38E 965 ; of the blocking ast being delivered between the check and the 
O38E 966 ; setting of the armed flag. 
O38E 967 ; 
O38E 968 
O3ee 969 SETIPL IPL_DEST ; Raise IPL and lock pages 
ooac CS) «=652)—CiB1sé39 970 CMPW R2 ,OCB$W_DIRSEQ(R5) 3 Verify seq. ud _heen't t changed 
9 12 039A 971 BNEQ 208 : It has - rep 
8000 8F AB 039C of8 BISW #UCBSM_AST_ARMED,- ; Set the erned. flag 
OOAC C5 bag 97 UCBSW_ BIRSEQ(RS) 
50 01 DO OQ3A 974 MOVL aie RO™ 3; Return success 
O3A6 975 40S: SETIPL #0" 3; Lower IPL 
04 O3A9 976 RET 
O3AA «977 : 
50 D4 8 AA 978 50S: CLRL RO ; Return failure 
FB AC 979 BRB 40$ 
O3AE 980 
O3AE a8) 
beak 4 ¢ 90$: RMSPBUG FTLS_ENQDEQFAIL 
0385 984 IPL_DEST: 
00000008 038 985 . IPL$_SYNCH E 
94 44 ASSUME .-ARA_CACHE LE 513 ; Make sure we fit on two pages 
B9 988 
9 989 
0389 990 
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RMS$_IDR 
SETMFD 
SET_MT_MFD 
$$$" 1VCOCKID 
SS$_NOSUCHF ILE 
$S$~SYNCH 
SUCCESS 
SYS$SCMKRNL 
SYSSENQ 
TPTSL_SETDID 


UCBS$L_DEVCHAR 
UCBSL 


Initialization 


Command processing 
Pass 1 
pyases, table sort 


Symbol table output 
Psect synopsis output 
Cross-reference output 
Assembler run totals 


The york ing set Limit was 2100 pages. 
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: fg g 4 
* $0009 


01 

keeeenee 6X 0 
1 

1 


ReeeKeeee GX 
ReReeeee x 


9 ( 953.) 
0.) 


00000000 < 
00090 


00000000 < 


Page faults 


FONAACONG 


98 


ie i eo 


oOoooooooo 
Sooooocoocoo 
CoOoOoOoooooo 
COooooeoooo 
WoOOooOoConoo 
NOOQOMFAOO 
se eee @ 

roo —-Of INGO 
COOMNONOUS 


"SSEp=198e 10:28:80 


PSECT No. Attributes 

00 ( 0.) NOPIC USR 
01 ¢ 1.) PIC USR 
02 ¢( 2.) NOPIC  USR 


00:00:01.00 
00:00:04.05 
00:01:10.08 
00:00:06.94 
BF RO Oe be 
00:00:00.8 
00:00:00.04 
89:80: 99-00 
00:01:33.61 


CON 
CON 
CON 


bytes (298 pages) of virtual memory were used to buffer the internediate 


There were 160 pages of symbol table space allocated to hold 294 
object records in Pass 


source lines were read in Pass 1, producing 15 
44 pages of virtual memory were used to define 43 macros. 


non-local and 


ABS 
REL 
ABS 
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LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
RD NOWRT NOVEC BYTE 


GBL NOSHR 
LCL NOSHR 


gece. 
4 local symbols. 


EXE 
EXE 


RD 


WRT NOVEC BYTE 


ge 
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ore the Macro Run Statistics 6:2 RMS .SRCIRMOSETDID.MAR; 1 3) 


tren enn cece er eer nese mee een ee m= + 


! ; Macro library | statistics ! 


Seen woe town asa owe neal 


Macro Library name Macros defined 
_$255$0UA28: oe wie ne 1 15 
- 55$D0UA28:(SYS.OBJJLIB.MLB; 1 

$255$DUA28: SYSCIBISTARLET MLB; 2 1 

TOTALS (all Libraries) 39 


3174 GETS were required to define 39 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:RMOSETDID/OBJ=OBJ$:RMOSETDID MSRC$:RMOSETDID/UPDATE=(ENH$:RMOSETDID) +EXECML$/LIB+LIB$:RMS/LIB 
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